home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / COMMUNIC / MRUN211.ZIP / MRUN211A.WAS < prev    next >
Text File  |  1993-05-01  |  23KB  |  728 lines
  1. ;MailRun v2.11:  Part A, Main body of script
  2. ;1992-1993 Gerald P. Sully, all rights reserved.
  3.  
  4. #comment
  5. **************************************************************************
  6. **************************************************************************
  7. * 
  8. * This file serves as "home base" for the rest of the script.
  9. * All other scripts will return to this one if they are
  10. * exited normally.  It initializes MailRun, creates the
  11. * user interface, and then waits for action on the part of the
  12. * user.  If the user executes a mailrun, this section is also
  13. * responsible for taking care of scheduling.
  14. * 
  15. * Elements of the user interface are contained in the header
  16. * file (MRUN211.H).  Menu selections are fielded by parsemenu()
  17. * and the toolbar is controlled by parseobject().  The routines 
  18. * associated with menu items are contained in the header file 
  19. * immediately following parsemenu() and parseobject().  Some of
  20. * these in turn call routines in other script modules through 
  21. * the callscript() procedure.  Where necessary, a FLAG is set to
  22. * inform the target module which routines to execute.  
  23. * 
  24. * The code for the interface is #included in every module of 
  25. * MailRun so that any part of the script may be called from any 
  26. * other part.  Other script modules are called by MRUN211A and 
  27. * MRUN211G (the module responsible for executing the mailrun) 
  28. * using the "execute" command.  When a module is called from
  29. * MRUN211B-F, a "chain" command is used.
  30. * 
  31. **************************************************************************
  32. **************************************************************************
  33. #endcomment
  34.  
  35. #define MRUN211A
  36. #define MRUN211AG
  37. #define MRUN211AB
  38.  
  39. string MainBoxTabs
  40. integer RingInterrupt, AutoRun
  41. integer MailRunMenu, RunningMenu, FileMenu, ConfigMenu, AddMenu
  42. integer DefaultsMenu, ExecuteMenu, HelpMenu, EditMenu
  43.  
  44. #include "mrun211.h"
  45.  
  46. #define HAVEYOUPAID;YOURFIFTEENDOLLARSYET
  47.  
  48. #comment
  49. *********************************************************************
  50. * 
  51. * MAIN()
  52. * 
  53. * Calls checkchild(), initialize(), maketasklist(),
  54. * makemailrunlist(), runmenu(), mrunmenu(), mrunwin(),
  55. * getfirstitem(), helpabout(), parsedialog(), parsekeystate(),
  56. * interfaceon(), executor(), makefullname()
  57. * 
  58. * Main first calls the initialization routines, then puts
  59. * up the main dialog box and waits for user action.
  60. * 
  61. *********************************************************************
  62. #endcomment
  63.  
  64. proc main
  65. string MRunIcons
  66.     checkchild()
  67.     initialize()
  68.     runmenu()
  69.     mrunmenu()
  70.     mrunwin()
  71.     makemailrunlist()
  72.     maketasklist()
  73.     getfirstitem()
  74.     showmenu MailRunMenu
  75.     if AutoRun == 1
  76.         filereset()
  77.         FLAGS |= RUNNING
  78.         GoWait = 1
  79.         PostRun = 3
  80.         pause 2
  81.     else
  82. #ifdef HAVEYOUPAID;YOURFIFTEENDOLLARSYET
  83.         helpabout()
  84. #else
  85.         mailrunbox()
  86. #endif
  87.     endif
  88.     interfaceon()
  89.     MRunIcons = makefullname(MailRunDir, "MRUNICON.DLL")
  90.     when dialog call parsedialog
  91.     while 1
  92.         if FLAGS & RUNNING
  93.             copyfile MRunIcons "C:\MRUNICON.DLL"
  94.             switch $XPIXELS
  95.                 case 1280
  96.                     iconbutton 1 25 0 "" "C:\MRUNICON.DLL" 16 userwin
  97.                 endcase
  98.                 case 1024
  99.                     iconbutton 1 30 0 "" "C:\MRUNICON.DLL" 16 userwin
  100.                 endcase
  101.                 case 800
  102.                     iconbutton 1 40 0 "" "C:\MRUNICON.DLL" 16 userwin
  103.                 endcase
  104.                 default
  105.                     iconbutton 1 50 0 "" "C:\MRUNICON.DLL" 16 userwin
  106.                 endcase
  107.             endswitch
  108.             paint
  109.             delfile "C:\MRUNICON.DLL"
  110.              showmenu RunningMenu
  111.              executor()
  112.             copyfile MRunIcons "C:\MRUNICON.DLL"
  113.             switch $XPIXELS
  114.                 case 1280
  115.                     iconbutton 1 25 0 "" "C:\MRUNICON.DLL" 0 userwin
  116.                 endcase
  117.                 case 1024
  118.                     iconbutton 1 30 0 "" "C:\MRUNICON.DLL" 0 userwin
  119.                 endcase
  120.                 case 800
  121.                     iconbutton 1 40 0 "" "C:\MRUNICON.DLL" 0 userwin
  122.                 endcase
  123.                 default
  124.                     iconbutton 1 50 0 "" "C:\MRUNICON.DLL" 0 userwin
  125.                 endcase
  126.             endswitch
  127.             paint
  128.             delfile "C:\MRUNICON.DLL"
  129.              showmenu MailRunMenu
  130.         endif
  131.     endwhile
  132. endproc
  133.  
  134.  
  135. #comment
  136. *********************************************************************
  137. * 
  138. * INITIALIZE()
  139. * 
  140. * Called by main()
  141. * 
  142. * Calls cleardir(), makemrn(), makefullname(), checkfile()
  143. * 
  144. * Saves system state and initializes global variables.
  145. * 
  146. *********************************************************************
  147. #endcomment
  148.  
  149. proc initialize
  150. string LastRun, env, temp , CleanupFile
  151. string StateCapPath, StateCapFile, StateDnldPath, StateUpldPath
  152. integer StateAutoDL, StateActionBar, StateMetaKeys
  153. integer blank = 0
  154.     ;Create the working directory
  155.     getenv "TEMP" env
  156.     if NULLSTR env
  157.         TempDir = makefullname($PWTASKPATH, "MRUNTEMP")
  158.     else
  159.         TempDir = makefullname(env, "MRUNTEMP")
  160.     endif
  161.     FLAGS = 0
  162.     MailRunIni = makefullname($WINPATH, "MAILRUN.INI")
  163.     profilerd MailRunIni "MailRun" "MailRun" MailRunTrunc
  164.     profilerd MailRunIni "MailRun" "MailRunDir" MailRunDir
  165.     profilerd MailRunIni "MailRun" "AutoRun" AutoRun
  166.  
  167.     ;Save the current state of PCPlus/Win
  168.     fetch autodnld StateAutoDL
  169.     fetch capture path StateCapPath
  170.     fetch capture file StateCapFile
  171.     fetch dnldpath StateDnldPath
  172.     fetch upldpath StateUpldPath
  173.     StateActionBar = $ACTIONBAR
  174.     StateMetaKeys = $METAKEYS
  175.     ;Save the system state in the cleanup file
  176.     cleanupfile = makefullname(TempDir, "CLEANUP.TMP")
  177.     profilewr CleanupFile "Cleanup" "StateAutoDL" StateAutoDL
  178.     profilewr CleanupFile "Cleanup" "StateCapPath" StateCapPath
  179.     profilewr CleanupFile "Cleanup" "StateCapFile" StateCapFile
  180.     profilewr CleanupFile "Cleanup" "StateDnldPath" StateDnldPath
  181.     profilewr CleanupFile "Cleanup" "StateUpldPath" StateupldPath
  182.     profilewr CleanupFile "Cleanup" "StateActionBar" StateActionBar
  183.     profilewr CleanupFile "Cleanup" "StateMetaKeys" StateMetaKeys
  184.  
  185.     ;Change the settings
  186.     set capture path MailRunDir
  187.     set capture query OFF
  188.     set autodnld OFF
  189.     set aspect rangechk OFF
  190.     metakeys OFF
  191.     actionbar OFF
  192.  
  193.     ;If the mailrun in MAILRUN.INI doesn't exist, create it
  194.     if NULLSTR MailRunTrunc
  195.         blank = 1
  196.     else
  197.         LastRun = makefullname(MailRunDir, MailRunTrunc)
  198.     endif
  199.     if !(checkfile(LastRun)) || blank
  200.         temp = makefullname(MailRunDir, "*.MRN")
  201.         findfirst temp
  202.         if FOUND
  203.             MailRunTrunc = $FILENAME
  204.             LastRun = makefullname(MailRunDir, MailRunTrunc)
  205.         else
  206.             MailRunTrunc = "mailrun.mrn"
  207.             MailRunList = "mailrun.mrn"
  208.             makemrn()
  209.             LastRun = MailRun
  210.         endif
  211.     endif
  212.     ;Copy the mailrun to the temp directory
  213.     MailRun = makefullname(TempDir, MailRunTrunc)
  214.     TaskList = makefullname(TempDir, "TASKLIST.TMP")
  215.     copyfile LastRun MailRun
  216.     profilerd MailRun "MailRun" "Archiver" Archiver
  217.     profilerd MailRun "MailRun" "QWKReader" QWKReader
  218.     profilerd MailRun "MailRun" "LogViewer" LogViewer
  219. endproc
  220.  
  221.  
  222. #comment
  223. *********************************************************************
  224. * 
  225. * EXECUTOR()
  226. * 
  227. * Called by main()
  228. * 
  229. * Calls schedulebox(), mailrunbox(), checktime(), fileexit(),
  230. * scheduler(), domailrun(), makefullname(), filereset(),
  231. * maketasklist()
  232. * 
  233. * Executes MRUN211G
  234. * 
  235. * Puts up the MailRun Scheduling box and parses the result.
  236. * 
  237. *********************************************************************
  238. #endcomment
  239.  
  240. proc executor
  241. string HH, MM, SS, temp, LogFile, domailrun
  242. integer Hour, Minute, Second
  243. integer dialogstatus, boxstatus
  244.     domailrun = makefullname(MailRunDir, "MRUN211G")
  245.     findfirst MailRun
  246.     LogFile = $FNAME
  247.     strcat LogFile ".CAP"
  248.     if AppendLog == 0
  249.         ;if user does not want to append to existing log file
  250.         temp = makefullname(MailRunDir, LogFile)
  251.         delfile temp
  252.     endif
  253.     set capture file LogFile
  254.     profilerd MailRun "MailRun" "RingInterrupt" RingInterrupt
  255.     if AutoRun == 0
  256.         profilerd MailRun "MailRun" "ExecTime" ExecTime
  257.         profilerd MailRun "MailRun" "PostRun" PostRun
  258.         profilerd MailRun "MailRun" "GoWait" GoWait
  259.         schedulebox()
  260.         if GoWait == 1 
  261.             disable CTRL 230
  262.         endif
  263.     endif
  264.     ;boxstatus indicates whether or not mailrunbox is showing
  265.     boxstatus = 0
  266.     ;turn off parsedialog() for parsing contols
  267.     clearwhen dialog
  268.     while (FLAGS & RUNNING) && (AutoRun == 0)
  269.         dialogstatus = $DIALOG
  270.         switch dialogstatus
  271.             case 1
  272.                 ;User selected "Cancel"
  273.                 FLAGS &= IDLE
  274.                 mailrunbox()
  275.                 boxstatus = 1
  276.                 ;turn b